#!/usr/bin/perl -w
use strict;
use warnings;
for (my $i = 1; $i < 13000; ++$i) {
	my $url = "http://user.wap.58.com/post/$i/30/14286/s5/";
	my $content = `curl $url 2>/dev/null`;
#	if ($content =~ /<b>([\d\D]+)<\/b><a href="http:\/\/wap\.58\.com\/zz\/city\//) {
	if ($content =~ /<b>([\d\D]+)<\/b>/) {
		print "$1\t$i\n";
	}
}
